-- card: 11722 from stack: in.03 еее
-- bmap block id: 15346
-- flags: 0000
-- background id: 2766
-- name: 
----- HyperTalk script -----
on openCard
  global chase
  send cardOpened to background
  hide card field hortaBelow
  if chase≥2 then hortaChase
end openCard

on move
  global direction,pillarEat,chase,blasting,causeOfDeath
  if chase>2 then
    if direction="down" or direction="back" then
      put "horta4" into causeOfDeath
      visual wipe up slowly to gray
      go to card id 3409
      exit move
    end if
  end if
  if direction = "down" then
    if pillarEat = true then
      go to card id 23127
      exit move
    else
      go to card id 22580
      exit move
    end if
  end if
  pass move
end move


on closeCard
  set the cursor to 4
  put "" into field 3
  show card button hortaCover
end closeCard

on take
  global object,carried
  -- remember to update carried if you do not pass take
  pass take
end take

on drop
  global object,dropRoom,carried,chase,pillarEat,causeOfDeath
  if chase=3 then
    put last word of object into obj
    delete last char of obj
    delete first char of obj
    if obj<>"nodule" then
      put "horta2" into causeOfDeath
      visual wipe up slowly to gray
      go card id 3409
      exit drop
    end if
  end if
  answer "Drop object on pillar, or into the room?" with "pillar" or "room"
  if it="room" then
    if pillarEat then
      put "23127" into dropRoom
      if chase=3 then
        show card field noduleDrop
        put 0 into chase
        show card button hortaCover
      end if
    else
      put "22580" into dropRoom
    end if
  end if
  -- remember to update carried if you do not pass drop
  pass drop
end drop

on use
  global object,carried
  -- update carried if use results in loss of object
  pass use
end use

on hortaChase
  global chase,pillarEat,oldRoom,newRoom
  hide card button hortaCover
  put "The Horta is disolving away the base of the pillar.  The pillar could fall over any second!" into field 3
  if chase=2 then show card field hortaBelow
  put 3 into chase
  if pillarEat = false then
    put true into pillarEat
    put "22580" into oldRoom
    put "23127" into newRoom
    send roomChange to background
    put cardID into prevID
  end if
end hortaChase



-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=100 top=229 right=265 bottom=134
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=66 top=228 right=264 bottom=100
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=168 top=229 right=265 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=134 top=229 right=265 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=32 top=228 right=264 bottom=66
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=202 top=229 right=265 bottom=236
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp



-- part 22 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=0 top=231 right=267 bottom=34
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: orb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a crystal orb" into field 3
put false into examFlag
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=143 top=50 right=106 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID,takeFlag
  if examFlag then
    put "a tunnel leading west." into field 3
    put false into examFlag
  else
    put false into takeFlag
    beep
    put "You must get down off the pillar first" into field 3
  end if
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=106 right=168 bottom=253
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,cardID,direction
  put false into takeFlag
  put false into examFlag
  put "down" into direction
  send move to card id cardID
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=124 top=170 right=196 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hortaCover


-- part 43 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hortaBelow
----- HyperTalk script -----
on mouseUp
  hide card field hortaBelow
end MouseUp


-- part 44 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: noduleDrop
----- HyperTalk script -----
on mouseUp
  hide card field noduleDrop
  put "The Horta is gone." into field 3
end mouseUp


-- part contents for background part 25
----- text -----
Top of Crystal Pillar
(looking west)

-- part contents for card part 43
----- text -----


You easily scramble up the crystal pillar.  The creature tries to follow, but the crystal material of the pillar dissolves on contact with its body so it is not able to follow you up.  The creature continues to try, however, and the base of the pillar is eroding away!  The pillar probably won't last long, so you'd better think of something.












Click to continue.

-- part contents for card part 44
----- text -----










You drop the silicon nodule off of the pillar.  The Horta creature instantly forms a pseudopod and deftly catches the nodule.  The Horta gently places the nodule back on the spot where you found it.  It then emits a low rasping noise in your direction, and shuffles out of the room, the rock floor sizzling and smoking faintly in its wake.




Click to continue...

-- part contents for background part 24
----- text -----
You are perched atop the crystal pillar.  The flat top of the pillar is about four feet in diameter.


-- part contents for background part 36
----- text -----
1